Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/tutor/clipper.exe/CLIPSRCH.PRG

Text File | 1985-08-03 | 4KB | 122 lines

* clipsrch.PRG
SELE 1
USE CLIPWAGE ALIAS WAGES
go bottom
totrecs = recno()
LAST = RECNO()
SET SCOREBOARD OFF
SET TALK OFF
SET ECHO OFF
clear
sel = "A                   "
SET COLO TO 7/0,R/W
@ 1,0 SAY   "╔══════════════════════════════════════════════════════════════════════════════╗"
@ 2,0 SAY   "║"
SET COLO TO W+/R, R/W
@ 2,1 SAY    "                  C L I P P E R  dBASE III True compiler                      "
SET COLO TO 7/0,R/W
@ 2,79 SAY  "║"
@ 3,0 SAY   "║"
set colo to w+/r, R/W
@ 3,1 SAY    "                                                                              "
SET COLO TO 7/0,R/W
@ 3,79 SAY  "║"
@ 4,0 SAY   "║"
set colo to w+/r, R/W
@ 4,1 SAY    "       Demonstration of data access speed on a database of " + str(totrecs,3,0) + " records        "
SET COLO TO 7/0,R/W
@ 4,79 SAY  "║"
@ 5,0 SAY   "║"
set colo to w+/r, R/W
@ 5,1 SAY   "                     USING LINEAR SEARCH on Field [NAME]                       "
SET COLO TO 7/0,R/W
@ 5,79 SAY  "║"
@ 6,0 SAY   "╚══════════════════════════════════════════════════════════════════════════════╝"
@ 8,4 SAY   "┌─────────────────────────────────────┐"
@ 9,4 SAY   "│"
set colo to w+/r, R/W
@ 9,5 SAY    "  Name :                             "
SET COLO TO 7/0,R/W
@ 9,42 SAY  "│"
@ 10,4 SAY  "└─────────────────────────────────────┘"
@ 8,50 SAY   "┌────────────────────────┐"
@ 9,50 SAY   "│"
set colo to w+/r, R/W
@ 9,51 SAY    " Record No :            "
SET COLO TO 7/0,R/W
@ 9,75 SAY  "│"
@ 10,50 SAY  "└────────────────────────┘"
@ 11,4 SAY  "┌─────────────────────────────────────┐    ┌────────────────────────────┐"
@ 12,4 SAY  "│"
set colo to w+/r, R/W
@ 12,5 SAY   " Address :                           "
SET COLO TO 7/0,R/W
@ 12,42 SAY "│"
@ 12,47 SAY "│"
set colo to w+/r, R/W
@ 12,48 SAY  " Road :                     "
SET COLO TO 7/0,R/W
@ 12,76 SAY "│"
@ 13,4 SAY  "└─────────────────────────────────────┘    └────────────────────────────┘"
@ 14,4 SAY  "┌─────────────────────────────┐      ┌───────────────────────────────┐"
@ 15,4 SAY  "│"
set colo to w+/r, R/W
@ 15,5 SAY   "  Town :                     "
SET COLO TO 7/0,R/W
@ 15,34 SAY "│      │"
set colo to w+/r, R/W
@ 15,42 SAY " County :                     "
SET COLO TO 7/0,R/W
@ 15,73 SAY "│"
@ 16,4 SAY  "└─────────────────────────────┘      └───────────────────────────────┘"
@ 17,4 SAY  "╔══════════════════════╗"
@ 18,4 SAY  "║"
set colo to w+/r, R/W
@ 18,5 SAY   "  Salary :            "
SET COLO TO 7/0,R/W
@ 18,27 SAY "║"
@ 19,4 SAY  "╚══════════════════════╝             ╔═══════════════════════════════╗"
@ 20,4 SAY  "╔═══════════════════════╗            ║"
set colo to w+/r, R/W
@ 20,42 SAY "Started employment :           "
@ 20,63 SAY start
SET COLO TO 7/0,R/W
@ 20,73 SAY "║"
@ 21,4 SAY  "║"
set colo to w+/r, R/W
@ 21,5 SAY  "  Employee No. :       "
SET COLO TO 7/0,R/W
@ 21,28 SAY "║            ╚═══════════════════════════════╝"
@ 22,4 SAY  "╚═══════════════════════╝"
set colo to r+/0,r+/0
skey = ' '
DO WHILE Skey <>  'Q'
  SET COLO TO /R,r/W
  @ 9,17 SAY name
  @ 12,17 SAY address
  @ 12,56 SAY road
  @ 15,14 SAY town
  @ 15,53 SAY county
  @ 18,16 SAY wage
  @ 21,22 SAY emp
  sel = "                    "
  set color to w+/r
  @ 23,0 SAY "Enter String you wish to search for, or <CR> TO QUIT -->  "
  set color to /w
  @ 23,59 get sel
  Read
  Clear Gets
  Skey = trim(sel)
  IF LEN(SKEY) = 0
    SKEY = 'Q'
    SET COLO TO 7/0,7/0
    RETURN
  ELSE
    locate for SKEY$NAME
    set color to gr+/+r
    @ 9,66 SAY str(recno(),3)
    clear gets
  ENDIF
ENDDO
SET COLO TO 7/0,7/0
return